EnigmA Amiga Run 1999 February/EnigmA AMIGA RUN 34 (1999)(G.R. Edizioni)(IT)[!][issue 1999-02].iso/www/amitrix/swedish31.lha/Installera

Text File | 1998-01-21 | 4KB | 195 lines

;
; $VER: Installera 1.0 (17.1.98)
;
; Installationsskript för den svenska översättningen av AWeb.
;
; Magnus Holmgren ([e-mail])
;

(set #language "Svenska")

(set #welcome
    (cat
        "\n\nVälkommen till Installeraren.\n\n"
        "Det här programmet låter dig installera den svenska "
        "översättningen av AWeb och AWebs manual i din Amiga.\n\n"
        "Observera att en vanlig installation av AWeb förväntas "
        "finnas, då enbart de ändrade filerna kommer att "
        "installeras.\n\n"
    )
)

(set #help-no-aweb-assign
    (cat
        "Kunde inte hitta lådan där AWeb är installerad. Normalt "
        "sett skall AWeb finnas i \"AWeb3:\", men någon sådan "
        "volym eller tilldelning kunde inte hittas.\n\n"
    )
)

(set #where-aweb "Var god välj den låda där AWeb är installerad.")

(set #help-where-aweb
    (cat
        "Var god välj den låda där AWeb är installerad. I denna "
        "låda bör åminstone filen AWeb samt lådorna \"docs\" och "
        "\"extras\" finnas."
    )
)

(set #same-dir
    (cat
        "\n"
        "Du verkar ha valt att installera översättningen i samma "
        "låda som den redan finns i. Vill du fortsätta ändå?"
    )
)

(set #help-same-dir
    (cat
        "Det verkar som om den låda du har valt att installera "
        "översättningen i är samma låda som den redan finns i. "
        "Att installera översättningen över sig själv är inte "
        "meningsfullt (och det kommer inte heller att fungera).\n\n"
        "Har du verkligen valt den låda AWeb finns i, har du "
        "förmodligen redan installerat översättningen där den "
        "skall vara. Avbryt i så fall denna installation."
    )
)

(set #really-aweb
    (cat
        "\n"
        "Lådan \"%s\" verkar inte innehålla en korrekt "
        "AWeb-installation. Vill du fortsätta ändå?"
    )
)

(set #help-really-aweb
    (cat
        "En korrekt AWeb-installation bör innehålla filen AWeb samt "
        "lådorna \"docs\" och \"extras\" (samt ett antal andra filer "
        "och lådor). Någon eller några av ovanstående fanns inte i "
        "den låda som du valt som destination. Detta kan tyda på att "
        "lådan inte innehåller en AWeb-installation."
    )
)

(set #continue "Fortsätt")

(set #cancel   "Avbryt")

(set #aborted  "\nInstalltionen avbruten av användaren.")

(set #makedir  "Skapar lådan \"%s\"... ")

(set #copy-program "Kopierar programöversättningen...")

(set #copy-manual "Kopierar manualen samt tillhörande filer...")

(message #welcome)

(welcome)

(set #dest "AWeb3:")

(if (<> 2 (exists #dest (noreq)))
    (set #dest "AWeb:")
)

(if (<> 2 (exists #dest (noreq)))
    (set #dest "AWeb-II:")
)

(if (<> 2 (exists #dest (noreq)))
    (set #dest "Sys:")
)

(if (AND (= #dest "Sys:") (= @user-level 1))
    (set #help #help-no-aweb-assign)
    (set #help "")
)

(if (OR (= #dest "Sys:") (>= @user-level 2))
    (set #dest
        (askdir
            (prompt #where-aweb)
            (help   #help #help-where-aweb "\n\n" @askdir-help)
            (default #dest)
        )
    )
)

(if (= (expandpath #dest) (expandpath ""))
    (if
        (NOT (askbool
            (prompt  #same-dir)
            (help    #help-same-dir)
            (choices #continue #cancel)
            (default 0)
        ))
        (
            (exit #aborted (quiet))
        )
    )
)


(if (NOT (OR
    (= 2 (exists (tackon #dest "docs")))
    (= 2 (exists (tackon #dest "extras")))
    (= 1 (exists (tackon #dest "AWeb"))) ))
    (if
        (NOT (askbool
            (prompt     (#really-aweb #dest))
            (help       #help-really-aweb)
            (choices #continue #cancel)
            (default 0)
        ))
        (
            (exit #aborted (quiet))
        )
    )
)

; Maybe makedir can create several levels (in V43 only?)?
; Oh well, never hurts to be on the safe side.
(if (= 0 (exists (tackon #dest "Catalogs")))
    (makedir (tackon #dest "Catalogs")
        (prompt  (#makedir "Catalogs"))
    )
)

(set #cat-source (tackon "Catalogs" #language))
(set #cat-dest   (tackon (tackon #dest "Catalogs") #language))

(copylib
    (prompt #copy-program)
    (source (tackon #cat-source "aweb.catalog"))
    (dest   #cat-dest)
)

(copylib
    (prompt #copy-program)
    (source (tackon #cat-source "awebcfg.catalog"))
    (dest   #cat-dest)
)

(copyfiles
    (prompt #copy-manual)
    (source "docs")
    (dest   (tackon #dest "docs"))
    (all)
)

(copyfiles
    (prompt #copy-manual)
    (source "extras")
    (dest   (tackon #dest "extras"))
    (all)
)

(set @default-dest #dest)

(exit)